home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 124
/
124.d81
/
puzzle boot 24
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
5 dv=peek(186):ifdv<8thendv=8
10 poke53281,.:poke53280,12:print"[147]"
20 gosub260
30 sys57812"psb 24",dv,0:poke780,0:poke781,0:poke782,48:sys65493
40 poke53272,29
50 b$=" [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
60 c$=" "
70 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 fori=1to7:printb$:next
90 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
100 poke214,8:print
120 print:printtab(9)"[212]he[208][213][218][218][204][197][208][193][199][197]"
140 print:printtab(8)"[154][193][159][204][207][193][196][211][212][193][210][154][197][216][195][204][213][211][201][214][197]"
150 print
170 sys57812"ss 24",dv,0:poke780,0:poke781,16:poke782,205:sys65493
172 sys57812"fh 24",dv,0:poke780,0:poke781,106:poke782,129:sys65493
174 poke33338,dv:sys33136,28000,"music 24"
176 sys57812"sid 24",dv,0:poke780,0:poke781,0:poke782,192:sys65493
178 sys33133,28000,57344,5120
180 sys33130,57344,57344+5119,.
182 sys33130,49152,51126,.
200 print"[144]load"chr$(34)"puzzle page 24"chr$(34)","dv
210 print"run"
220 poke43,1:poke44,64:poke16384,0
230 poke631,13:poke632,13:poke633,13:poke198,3
240 new
250 :
260 poke214,15:print
270 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
280 print" [152] "
290 print" [212][200][197] [208][213][218][218][204][197] [208][193][199][197] "
300 print" [194]y [194]arbara [200]. [211]chulak (c) 1994 "
310 print" [208]ublished on [204][207][193][196][211][212][193][210] #124 "
320 print" [211]ubscriptions 1-800-594-3370 "
330 print" [193]ll [210]ights [210]eserved "
340 print" "
350 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 return
474 poke33338,dv:sys33136,28000,"music 23"
10000 open15,8,15,"s0:puzzle boot 24":close15:save"0:puzzle boot 24",8:end